﻿
    !----------------------------------




module u_data
type, public :: my_data
      integer*4 a
end type my_data
end module



module datatype
    implicit none
    integer, parameter     :: dp = selected_real_kind(14, 60)
end module datatype





